home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
201-225
/
disk_223
/
csh
/
rawconsole.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
9KB
|
289 lines
/*
* RawConsole.c
*
* Shell 2.07M 17-Jun-87
* console handling, command line editing support for Shell
* using new console packets from 1.2.
* Written by Steve Drew. (c) 14-Oct-86.
* 16-Dec-86 Slight mods to rawgets() for Disktrashing.
*
* Version 3.03A by Carlo Borreo & Cesare Dieni 12-May-89
*
*/
#if RAW_CONSOLE
char *tyahdptr;
myget()
{
if (*tyahdptr) return *tyahdptr++;
return getchar();
}
extern int aux; /* for use with aux: */
#define SETRAW setrawcon(-1L);
#define SETCON setrawcon(0L);
int width;
newwidth()
{
extern struct Window *w;
width=(w->Width- (w->BorderLeft + w->BorderRight)) / w->RPort->TxWidth;
}
char *rawgets(line,prompt)
char *line, *prompt;
{
char *get_var();
char *gets();
register int n, pl;
register int max, i;
unsigned char c1,c2,c3;
char fkeys[5];
char *s;
char *ps;
char typeahd[256];
int fkey, savn;
int insert = 1;
int recall = -1;
struct HIST *hist;
newwidth();
if (aux) {
printf("%s",prompt);
fflush(stdout);
}
if (!IsInteractive(Input()) || aux ) return(gets(line));
if (WaitForChar((long)Input(), 100L) || /* don't switch to 1L ...*/
stdin->_bp < stdin->_bend) { /* else causes read err's*/
gets(line);
return(line);
}
SETRAW;
printf("\015%s\2336n",prompt);
savn = pl = n = 0;
tyahdptr = typeahd;
while((typeahd[n]=getchar()) != 'R') {
if ((unsigned char)typeahd[n] == 155) savn = n;
n++;
}
/* typeahd now contains possible type a head chars
followed by <CSI> cursor position report.
*/
typeahd[savn] = '\0';
if (typeahd[n-2] != ';') pl = (typeahd[n-2] - 48) * 10;
pl += typeahd[n-1] - 49;
ps = line + pl;
line[max = i = pl] = '\0';
if (s = get_var (LEVEL_SET, "_insert")) insert = atoi(s) ? 1 : 0;
while( (c1 = myget()) != 255) {
switch(c1) {
case 155:
c2 = myget();
switch(c2) {
case 'A': /* up arrow */
n = ++recall;
case 'B': /* down arrow */
line[pl] = '\0';
if (recall >= 0 || c2 == 'A') {
if (c2 == 'B') n = --recall;
if (recall >= 0) {
for(hist = H_head; hist && n--;
hist = hist->next);
if (hist) strcpy(&line[pl],hist->line);
else recall = H_len;
}
}
if (i != pl)
printf("\233%dD",i);
printf("\015\233J%s%s",prompt,ps);
i = max = strlen(ps) + pl;
break;
case 'C': /* right arrow*/
if (i < max) {
i++;
printf("\233C");
}
break;
case 'D': /* left arrow */
if (i > pl) {
i--;
printf("\233D");
}
break;
case 'T': /* shift-up */
n = recall = H_len-1;
case 'S': /* shift-down */
line[pl] = '\0';
if (c2 == 'S') {
n = recall = 0;
if (H_head) strcpy(&line[pl], H_head->line);
}
else if (H_tail) strcpy(&line[pl], H_tail->line);
printf("\015\233J%s%s", prompt, ps);
i = max = strlen(ps) + pl;
break;
case ' ': /* shift -> <-*/
c3 = myget();
switch(c3) {
case('@'): /* shift -> */
while (ps[i-pl-1] == ' ' && i<max) {
i++;
printf("\233C");
}
while (ps[i-pl-1] != ' ' && i<max) {
i++;
printf("\233C");
}
break;
case('A'): /* shift <- */
while (ps[i-pl-1] == ' ' && i>pl) {
i--;
printf("\233D");
}
while (ps[i-pl-1] != ' ' && i>pl) {
i--;
printf("\233D");
}
break;
default:
break;
}
break;
default:
c3 = myget();
if (c3 == '~') {
fkey = c2;
fkeys[0] = 'f';
if (c2 == '?') {
strcpy(ps,"help");
goto done;
}
}
else if (myget() != '~') { /* window was resized */
while(myget() != '|');
newwidth();
break;
}
else {
fkey = c3;
fkeys[0] = 'F';
}
sprintf(fkeys+1,"%d",fkey - 47);
if (s = get_var(LEVEL_SET, fkeys))
tyahdptr = strcpy(typeahd,s);
break;
}
break;
case 8:
if (i > pl) {
i--;
printf("\010");
}
else break;
case 127:
if (i < max) {
int j,t,l = 0;
movmem(&line[i+1],&line[i],max-i);
--max;
printf("\233P");
j = width - i % width - 1; /* amount to end */
t = max/width - i/width; /* no of lines */
for(n = 0; n < t; n++) {
l += j; /* no. of char moved */
if (j) printf("\233%dC",j); /* goto eol */
printf("%c\233P",line[width*(i/width+n+1)-1]);
j = width-1;
}
if (t)
printf("\233%dD",l+t); /* get back */
}
break;
case 18:
n = i/width;
if (n) printf("\233%dF",n);
printf("\015\233J%s%s",prompt,ps);
i = max;
break;
case 27:
break;
case 1:
insert ^= 1;
break;
case 21:
case 24:
case 26:
if (i>pl) printf("\233%dD",i-pl);
i = pl;
if (c1 == 26) break;
case 11: /* ^K */
printf("\233J");
max = i;
line[i] = '\0';
break;
case 28: /* ^\ */
SETCON;
return(NULL);
case 5:
if (i!=max) printf("\233%dC",max - i);
i = max;
break;
case 10:
case 13:
line[max] = '\0';
done: printf("\233%dC\n",max - i);
SETCON;
strcpy(line, ps);
return(line);
default:
c1 &= 0x7f;
if (c1 == 9) c1 = 32;
if (c1 > 31 & i < 256) {
if (i < max && insert) {
int j,t,l = 0;
movmem(&line[i], &line[i+1], max - i);
printf("\233@%c",c1);
t = max/width - i/width;
j = width - i % width - 1;
for(n = 0; n < t; n++) {
l += j;
if (j) printf("\233%dC",j);
printf("\233@%c",line[width*(i/width+n+1)]);
j = width-1;
}
if (t) printf("\233%dD",l + t);
++max;
}
else {
if(i == pl && max == i) printf("\015%s%s",prompt,ps);
putchar(c1);
}
line[i++] = c1;
if (max < i) max = i;
line[max] = '\0';
}
}
}
SETCON;
return(NULL);
}
setrawcon(flag) /* -1L=RAW:, 0L=CON: */
long flag;
{
long packargs[8];
packargs[0]=flag;
SendPacket(994L, packargs, Myprocess->pr_ConsoleTask);
}
#endif